home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak - Disc 3 / Infomagic - Windows 3-Pak (Disc 3 of 3).iso / Telnet-Clients / HOSTACCESS.exe / MISC.1 / PASTE.MCR < prev    next >
Text File  |  1997-11-06  |  578b  |  32 lines
  1. Rem Put a Back page into memory and paste to notepad.
  2.  
  3. Dim a,b as integer
  4. Dim A$ as string
  5.  
  6. Rem Delete DOS File paste.txt
  7.  
  8. PRINT CHR$(27);"_Epaste.txt";chr$(27);"\";
  9. DELAY 1
  10.  
  11. Rem Set ouptut to paste.txt
  12.  
  13. PRINT CHR$(27);"_Lpaste.txt";chr$(27);"\";
  14.  
  15. Rem Prompt for Backpages
  16. a = 5
  17.  
  18. Rem Loop back and printscreen.
  19. FOR b = 1 TO a STEP 1
  20. action System_BackPageUp()
  21. Next b
  22.  
  23. FOR b = 1 to a STEP 1
  24. action Session_PrintScreen()
  25. action System_BackPageDown()
  26. Next b
  27.  
  28. action Session_PrintScreen()
  29.  
  30. PRINT CHR$(27);"_1enotepad paste.txt";chr$(27);"\";
  31.  
  32. INPUT A$